Select Case par
Case 0
objt.innerhtml=replace(objt.innerhtml,"" ,"")
Case 1,5
if par=1 then
 devmsgbox=Msgbox("   ? ",36,"")
else
 devmsgbox=Msgbox("   ? ",36,"")
end if
j=0
if devmsgbox=6 then
' f.elements("html").value=tagn  //   
' f.elements("vvv").click()      // 
end if
Case 4
devmsgbox=Msgbox("  ? ",36,"")
if devmsgbox=6 then
 'tagn=replace(tagn,"" ,"") 
 'f.elements("html").value=tagn  //   
 'f.elements("vvv").click()      // 
end if
Case 6
devmsgbox=Msgbox("  ? ",36,"")
if devmsgbox=6 then
 'tagn=replace(tagn,"" ,"") 
 'f.elements("html").value=tagn  //   
 'f.elements("vvv").click()      // 
end if
Case 3
devmsgbox=Msgbox("  ? " ,36,"")
if devmsgbox=6 then
' f.elements("html").value=tagn  //   
' f.elements("vvv").click()      // 
end if
End Select
